# name : fisher.test (pipe+mutate), Fisher's Exact Test for Count Data
# key : fisher.test.mutate
# contributor: Shuguang Sun
# --
${1:df} |>
mutate(
${2:aval} = as.factor($2),
${3:group} = as.factor($3)
) |>
fisher.test(.\$$2, .\$$3)